# Model
model = declare_model(N = 300, U = rnorm(N),
potential_outcomes(Y ~ 0.2 * Z + U))
# Inquiry
inquiry = declare_inquiry(ATE = mean(Y_Z_1 - Y_Z_0))
# Data strategy
assign = declare_assignment(Z = complete_ra(N, prob = 0.5))
measure = declare_measurement(Y = reveal_outcomes(Y ~ Z))
# Answer strategy
estimator = declare_estimator(Y ~ Z, inquiry = "ATE")
# Put research design together
rct = model + inquiry + assign + measure + estimator